home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 2
/
Atari Mega Archive CD - Volume 2.iso
/
8bit
/
cislib_a
/
monito.src
< prev
next >
Wrap
Text File
|
1995-04-22
|
14KB
|
678 lines
ORG $3380
***DISASSEMBLER MODULE***
L3380 LDA #$00
STA L3713
JMP L37F4
L3388 BCC L338E
LSR A
LSR A
LSR A
LSR A
L338E AND #$0F
RTS
L3391 LDX $87
LDY $88
JSR L366B
JSR L3454
LDA ($87,X)
TAY
LSR A
BCC L33AA
ROR A
BCS L33B4
CMP #$A2
BEQ L33B4
AND #$87
L33AA LSR A
TAX
LDA L346E,X
JSR L3388
BNE L33B8
L33B4 LDY #$80
LDA #$00
L33B8 TAX
LDA L34B2,X
STA $82
AND #$03
STA $83
TYA
AND #$8F
TAX
TYA
LDY #$03
CPX #$8A
BEQ L33D8
L33CD LSR A
BCC L33D8
LSR A
L33D1 LSR A
ORA #$20
DEY
BNE L33D1
INY
L33D8 DEY
BNE L33CD
RTS
L33DC JSR L3391
PHA
L33E0 LDA ($87),Y
JSR L36AF
LDX #$01
L33E7 JSR L3456
CPY $83
INY
BCC L33E0
LDX #$03
CPY #$04
BCC L33E7
PLA
TAY
LDA L34CC,Y
STA $80
LDA L350C,Y
STA $81
L3401 LDA #$00
LDY #$05
L3405 ASL $81
ROL $80
ROL A
DEY
BNE L3405
ADC #$3F
JSR L36C2
DEX
BNE L3401
JSR L3454
LDY $83
LDX #$06
L341C CPX #$03
BEQ L343C
L3420 ASL $82
BCC L3432
LDA L34BF,X
JSR L36C2
LDA L34C5,X
BEQ L3432
JSR L36C2
L3432 DEX
BNE L341C
RTS
L3436 DEY
BMI L3420
JSR L36AF
L343C LDA $82
CMP #$E8
LDA ($87),Y
BCC L3436
JSR L3462
TAX
INX
BNE L344C
INY
L344C TYA
JSR L36AF
TXA
JMP L36AF
L3454 LDX #$03
L3456 LDA #$20
JSR L36C2
DEX
BNE L3456
RTS
L345F SEC
L3460 LDA $83
L3462 LDY $88
TAX
BPL L3468
DEY
L3468 ADC $87
BCC L346D
INY
L346D RTS
L346E DB $4,$20,$54
DB $30,$D
DB $80,$4,$90
DB $3,$22
DB $54,$33,$D
DB $80,$4
DB $90,$4,$20
DB $54,$33
DB $D,$80,$4
DB $90,$4
DB $20,$54,$3B
DB $D,$80
DB $4,$90,$0
DB $22,$44
DB $33,$D,$C8
DB $44,$0
DB $11,$22,$44
DB $33,$D
DB $C8,$44,$A9
DB $1,$22
DB $44,$33,$D
DB $80,$4
DB $90,$1,$22
DB $44,$33
DB $D,$80,$4
DB $90
DB $26,$31,$87
DB $9A
L34B2 DB $00
DB $21
DB $81
DB $82
DB $00
DB $00
DB $59
DB $4D
DB $91
DB $92
DB $86
DB $4A
DB $85
DB $9D
L34C0 DB ',),#($'
L34C6 DB 'Y',0,'X$$',0
L34CC DB $1C,$8A,$1C
DB $23,$5D,$8B
DB $1B,$A1,$9D
DB $8A,$1D,$23
DB $9D,$8B,$1D
DB $A1,$0,$29
DB $19,$AE,$69
DB $A8,$19,$23
DB $24,$53,$1B
DB $23,$24,$53
DB $19,$A1
DB $0,$1A,$5B
DB $5B,$A5,$69
DB $24,$24
DB $AE,$AE,$A8
DB $AD,$29,$0
DB $7C,$0
DB $15,$9C,$6D
DB $9C,$A5,$69
DB $29,$53
DB $84,$13,$34
DB $11,$A5,$69
DB $23,$A0
L350C DB $D8,$62,$5A
DB $48,$26,$62
DB $94,$88,$54
DB $44,$C8,$54
DB $68,$44,$E8
DB $94,$0,$B4
DB $8,$84,$74
DB $B4,$28,$6E
DB $74,$F4,$CC
DB $4A,$72,$F2
DB $A4,$8A
DB $0,$AA,$A2
DB $A2,$74,$74
DB $74,$72
DB $44,$68,$B2
DB $32,$B2,$0
DB $22,$0
DB $1A,$1A,$26
DB $26,$72,$72
DB $88,$C8
DB $C4,$CA,$26
DB $48,$44,$44
DB $A2,$C8
DB $FF,$FF,$FF
***TRACER MODULE***
L354F JSR L33DC
PLA
STA $80
PLA
STA $81
LDX #$08
L355A LDA L361C,X
STA $8A,X
DEX
BNE L355A
LDA ($87,X)
BEQ L35A8
LDY $83
CMP #$20
BEQ L35C5
CMP #$60
BEQ L35B5
CMP #$4C
BEQ L35D0
CMP #$6C
BEQ L35D1
CMP #$40
BEQ L35B1
AND #$1F
EOR #$14
CMP #$04
BEQ L3586
L3584 LDA ($87),Y
L3586 STA $8A,Y
DEY
BPL L3584
JSR L3794
JMP $8A
STA $94
PLA
PHA
ASL A
ASL A
ASL A
BMI L359E
JMP L37F4
L359E PLP
JSR L37A1
PLA
STA $87
PLA
STA $88
L35A8 JSR L3391
JSR L35E6
JMP L37F4
L35B1 CLC
PLA
STA $97
L35B5 PLA
STA $87
PLA
L35B9 STA $88
L35BB LDA $83
JSR L3462
STY $88
CLC
BCC L35D9
L35C5 CLC
JSR L3460
TAX
TYA
PHA
TXA
PHA
LDY #$02
L35D0 CLC
L35D1 LDA ($87),Y
TAX
DEY
LDA ($87),Y
STX $88
L35D9 STA $87
BCS L35D0
LDA $81
PHA
LDA $80
PHA
L35E3 JSR L3662
L35E6 LDA #$94
STA $8E
LDA #$00
STA $8F
LDX #$FB
L35F0 LDA #$20
JSR L36C2
LDA L352A,X
JSR L36C2
LDA #$3D
JSR L36C2
LDA $99,X
JSR L36AF
INX
BMI L35F0
RTS
L3609 CLC
LDY #$01
LDA ($87),Y
JSR L3462
STA $87
TYA
SEC
BCS L35B9
L3617 JSR L379F
SEC
BCS L35BB
NOP
NOP
JMP L3617
JMP L3609
L3625 DB 'AXYPS'
L362A INC $90
BNE L3630
INC $91
L3630 LDA $8A
CMP $8C
LDA $8B
SBC $8D
INC $8A
BNE L363E
INC $8B
L363E RTS
LDA #$00
STA $97
RTS
***INPUT MODULE***
L3644 LDX #$00
LDA #$05
STA ICCOM,X
LDA #$82
STA ICBAL,X
LDA #$38
STA ICBAH,X
LDA #$60
STA ICBLL,X
LDA #$00
STA ICBLH,X
JSR LE456
L3662 LDA #$9B
JMP L36C2
***HEX OUT MODULE***
L3667 LDY $8B
LDX $8A
L366B JSR L3662
JSR L344C
LDY #$00
LDA #$2D
JMP L36C2
L3678 LDA $8A
ORA #$07